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SO WHAT’S MY EXCUSE NOW? 


In case you haven’t noticed, this 
newsletter is late..-about a month 
late. In order to keep the 


newsletters on schedule I have decided 
to produce this double issue- February 


and March. You not only get both 
issues in one, but the newsletter 
gains two pages worth of space that 
would normally be taken up by the 
covers. 

This stili doesn’t explain why the 
newsletter is late. The problem 
Started about, month ago as I was 


preparing the” foll 
The QL froze and 
it to 


Swing text on my QL. 
Twas not able to get 
operate | again after that. 
Hoping to be * able to get the 
newsletter out somehow, I hauled out 
my backup GL. And as it usally 
happens, disaster was compounded- this 
GL would not work properly either. 
After many days of tinkering I 
discovered that a chip was blown on my 
main QL...and I had to wait to get in 
a new one. The backup GL had a 
Simpler problem, but it was harder to 
track down- ONE lead to ONE capacitor 
on this QL was broken- when the leads 
touched, the QL worked. But if they 
seperated or twitched CRASH went the 
QL. This has also been repaired. So 
now you have the newsletter. I can’t 
apologize though cause it was the QL's 
who were bad- I expect a formal 
apology from both of them shortly. 


WHAT HAS 
1 Megabyte RAM included 


is а Virtual Memory machine 
256 Colors & HIGH rez graphics 


and much more! 


"The only machine...that would be in 
its class today is the Amiga”. Yes, 
and this would all be yours for... 
$199.95!!! Yep, Timex planned it... 
the T/S 30628 fil 
but I keep wondering if the 3068 has 
anything to do with the so called 
'Sinclair Enigma' that was speculated 
about some time ago. 


And if that ain't enough damage, get 
this- Timex Һас planned to sell 3.5" 
disk drives for use with the 2065- for 
$45.95! This plan was far enough 
along that Timex knew where they would 
get the drives from. 


Now here's the final kicker- have you 
ever seen the photo of a ‘Timex Bus 
Expansion Unit' in Time Designs or the 
EAB catalog? The engineering for the 
unit was COMPLETED. 


How did I happen to suddenly come 
across this info? It so happens that 
the president of PSION, Inc. here in 
the U.S. was the Product Development 
Director СІ think!) for the 2065 at 
Timex. Billy Skyrme, the ‘GUY FROM 
TIMEX’, attended the February 21 
meeting of LIST. And the stories he 
told! He also told us the sad news 
that all the info about the 2068 and 


proposed products for itare as good as 
non-existent. It seems that due to 
legal reasons this info will probably 
never be available to us plebes. And 
what the engineers and other people 
involved with the 2068 know dispersed 
with them when Timex was paid off 
got out of the computer business. 


ORGANIZE YOUR LIFE 


The main reason Mr. Skyrme showed up 
at the LIST meeting was to show off 
the Psion Organizer hand held computer 
and its accessories. The Ürganizer is 
a pretty amazing and versatile little 
device. About the size of a typical 
scientific calculator, it is MUCH more 
than a calculator. There are 
currently two versions of the 
Ürganizer- І will primarily discuss 
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the Organizer II, the more advanced 


unit. 


This unit comes with 32K RAM, a built 
in operating system and programming 
language known as OPL, 2 line LCD 
display (which is like а window- one 
can scroll in any direction over a 
‘page’ of data), sound, and more. It 
is all powered by a S-Volt battery. 


One of the most interesting features 


are the two built-in solid state 
data ‘drives’. These are essentialy 


considered to be just like disk 
drives- B and C (internal RAM is 
considered drive A). Each drive сап 
take one (up to 128K) RAM or EPROM 
cartridge. This means over 256K is 
available in one handheld unit! 


The Organizer is actually a very 
versatile instrument. Wherever pen 
and paper are now used to take short 
notes and/or measurements, the Psion 
Organizer can be used. Current users 
already include: time management 
training, electronic field data 
collection at surevey sites, recording 
site geometry at archeaological digs, 
water pipe maintenance, banking, and 
more. 


If you do a lot of writing, than a lap 
top computer would probably be more 


appropriate. But for recording of 
numbers and other ‘simple type-in’ 
answers, the Psion would be 


appropriate. 


So how much does all this power cost? 


The Organizer I is $173.99, the 11 
model is $249.93. Datapak prices 
range from $30 to $150. Currently 
available accessories include a 


communication link  (RS-232), bar code 
wand, magnetic  swipe card reader, ac 
adaptor, and other stuff on the way. 
Program paks are also available, along 
with an OPL development system. This 
allows one to develop Organizer 
programs оп an ІВМ compatible, then 
download those programs into the 
Organizer. Prices for accessories and 
software range from $20 to $100, and 
more for the bar code accessories and 
swipe reader. 


If you're interested in the Organizer, 
you can contact Psion at the 
following: 


Psion Incorporated 
320 Lake Road 
Watertown, CT 
Tel: 203-274-721 


06779 


PS- Psion won't sell through mail 
order dealers like me- they may go 


mail order through a па ene company 
like Sharper Image. (Hmph). 


UPCOMING FESTS... 


So far two Sinclair computer fests are 
planned for the late summer. The 
Greater Cleveland Sinclair User's 
Group is having a 'Timex-Sinclair- 
Amsttrad 1988 Midwest Regional 
Conference’. The dates are August 26 
and 27. It will be held at the Beck 
Center for the Arts in Lakewood, Ohio 
Ca suburb of Cleveland). For more 
information contact Andy Kosiorek on 


CompuServe ID #75046,3420, or write 
the Cleveland Group: 2192 Glenbury 
Avenue, Lakewood, Ohio 44107. 


I see two mistakes about the above, 
and one gripe. First, the Beck 
Center is NOT a hotel- it seems hotel 
finding and reserving is YOUR problem. 
Second- no hotels were suggested or 
any other info. in the literature I 


received. The gripe is that why 
should it be called an AMSTRAD fest 
too? Even though Amstrad still sells 
the Spectrum, it is still sold as the 
SINCLAIR Spectrum. I better not get 
started with that argument- that’s 
another article for another time! 


The other fest, which sounds very 
interesting, is the Third Annual 
International/Great North West TS Mini 


Fair (Care these guys competing for 
titles?). This will be held on August 
6 and 7 in the Cosmopolitan Hotel in 
Portland, Oregon. Sure its far, and 
air fare from the NY area is aboout 
$300, but the hotel rate is $38 per 


night- YES THIRTY EIGHT DOLLARS. The 
savings on the hotel may be worth the 
air fare...and think of that scenery- 
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grass, trees, CLEANER AIR!!! For more 
info write: 1419 1/2 7th Street, 
Oregon City, Oregon 97045 or call 
C503) 655—7484...yep, its RMG. 


LISTing NEEDS AN EDITOR- NOW! 


the editor of 
almost two years 


How long have I been 
LISTing? It can't be 


already...or сап it?? Anyways, I 
would like to find a new editor...the 
sooner the better. Don't get me 
wrong! I don't hate it- its just that 
finals are coming up in another month 
or so. Also, next semester I start 
amy major courses. In other words, 
I've got to begin real studying! I 


already have very little spare time as 
it is...going to school full time, 
acting as Director of Computer Systems 
Operations for the Baruch College 
Admissions Department ¿(part time), 
editing this newsletter, doing video 
Production work for a class, and let’s 
not forget Variety Sales Cnow VCE). 


I’m not 
that you 
feel I have 
newsletter. 


just felt 
of why I 


trying to brag...I 
should get an idea 
to give up editing the 
Don't worry кА 
continue doing it until a new editor 
is found, or until I feel I have no 
choice but to give it up...which is 
not now! 

— Joe Newman 


LIST TAFE LISTINGS 


The following isa listing of the 
programs on LIST tape #9. These are 
all 2068 programs. To get this tape 
or any of the other LIST tapes, send 
$6.00, OR a QUALITY 60 minute tape and 
$3.00 to Harvey Rait, at the address 
in the box on the first page. Better 
yet, come to the meetings and pay only 
$1.50 per tape (call or write Harvey 
first so he can have the tapes) 
ready). 


Wrapping 
PRCODE 
WORD PROCS 
AERCO INT 
TALK CLOCK 
ZTALK 
INVOICING 


NOU B&W ت زم‎ 


8 BIORYTHMS 
9 READER 1 


READER 2 
TRACE 
RENUMBER 
CASE SWAP 
VARS 
SCROLL 
SCROLL 
SCROLL 
OVERS 1 
OVERS 2 
PATTERNS 
PATTERNS 
PAINTING 
PICTURE 
FLAG 
FILE 
ANDROIDS 
Б & C 
SIMON 
FINAL 
TEST 
SECONDS 
NAVIGATION 
SG ROOT 

UP & DOWN 
DIG. TIMER 
PAPER & INK 
BEWARE DOG 
EXAM 
KEYBOARD M 
LAS VEGAS 
PARROT 
KENTACKY 
STM 

MC EXAMPLE 
SHAKESPEARE 
TRESURE H 
I.T. ONE 
THE I.T. 
WOLF & GOATS 
RACER 

AT MARKET 
WINDOWS 
STICKS 

NEW CHRS 
NEW CHRS 
NEW CHRS 
NEW CHRS 
MESSAGE 
TITLEMAKER 
REGRESSION 
BAR GRAPH 
SCROLL $ 
AUTUMN 

NO. SORT 


М) س‎ 


SAYS 


65 WORD SORT The following lists are the contents 
66 DERBY DAY of LIST QL MICRODRIVE CARTRIDGES #1 
67 ATTR TABLE and #2. То order, contact Harvey К. 


68 METRIC for prices. 
69 HEADER 
70 HEADER/C 
71 SEARCH 
72 S/DATA a 
73 DEMOLITION Lo» 2 
44/218 sectors 

SIDE B DISASSEM 
1 DEMOLITION ATTACK 

2 DEMOLITION balloons 
3 SUBMARINE рост. 

4 BRICKS dumpx 

5 MONEYPAIL dumpy 

6 CHOMFER сорієга 
7 ASTEROIDS joy6_doc 
S TREE MAKER jov62 doc 
9 MOZART WA а 

10 SANTA WAS8E oka 
11 LOANS WA86 š é 
12 E Z DIS the_city 
12 UDG DESIGN eee 
14 NETWORK ae he 

15 128 COLORS SE гн 
16 BANANAS блог 

17 M/C LOADER story 

18 PSGE 32/64 ado 

19 MM1 A 

20 CHARACTERS E 

21 FULLGIRLS q ACE 

22 JANIS SEE 

S CONVERS TON LIST_ME_FIRST 
24 TIMER IC соғ ір 
zd oe driver 

27 ATIR 

28 2XSIZEHITE 

29 3 CHARS EE 


30 TITL/SHOOT 


TITL/SHOOT 


32 PAINTSIC 
33 SANTA 

34 SCRAMBLER 
35 TAPE/ANALY 
36 MULTIFILE 
37 SAVER 

38 SAVER MC 


5/218 sectors 
Saucer Screen 
world 

Size base 
Read Me 

Clock MC 
Printer Codes 
Poster Maker 
USA1 


39 TASPRINT Backup 
40 TASFONT O Banner 
41 TASPRINT BooT 


42 TAS2PRINT 
43 TAS2PRINT 
44 TASPRINT 
45 COMMENTS 
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SDOS MAIL MERGE 


(foc OLIER отт ) 
Complete This Issue 


A Major Software for 5005 


The feature program for the October 88 issue is "SDOS | 
MAIL MERGE”, a major software that was designed specifically 
for this issue. There are several reasons why this softvare 
is special, and why almost all will surely want it. First, 
it is the ONLY “printing software” that will work AS IS with 
ANY Centronics printer, plus the TS-2040 printer. There is 
absolutely по aonkeying around changing line пивбегѕ 
required to make it print with "brand у" printer. Second, 
it has many more features than just a Mailing List software. 
It is a "Dual Data Base" and printing software that can be 
used for many purposes. Third, the data products are siaple 
Character arrays that can easily be transferred from 
diskette to other operating softwares, using the LOAD 
/*x"DATA x$() command. 

The purpose for designing 5005 for SAFE DISK UP-DATE 
vas two fold. 1. A good software of this kind was not 
available. 2. A vehicle was needed for illustrating the 
versatility of 5005. I'll tell you a little tale on ayself 
to make a point. A year AFTER buying a new Edsel, 1 
discovered that the seat would tilt forward, as well as 
adjusting fore and aft. We have that nice 5005 system which 
has many many capabilities to discover. Safe Disk Up-Date 
vill try to reduce the discovery tiae. This software сап! 
unveil many tricks of 5005 programming. AND, it Ж 
definitely fill a gap in our TS-2068 software needs. 


FUNCTIONS 

There аге two main data bases, both flexible to the 
user. The "sain" data base is for listings of all үн 
"Mailing List" being the common usage. A "field" consists! 

of 7 lines of data. The data lines are organized by “field! 
nuabers" as follows: 1. Company Nase. 2. Department. 3. | 
Street’ Address. 4. City, State, Zip. Š. First mae. 6. 
Telephone Nor. 7. Other data. The operator is prompted to 
"Input Nuaber of Fields". This allows from one to about 120! 
fields to be organized. Then prompts ask for inputs by Line 
number. А listing can be discontinued at any time. еш 
choice allows "adding to" the list at any field number. $0, | 
if one inputs 20 names and quits, the next entry can be! 
started at "field 21" by prompt. Menu choices аге: 1.. | 
Start New. 2. Correct. 3. ADD TO. 4. View. 5.; 
Print/Labels/Envelopes. 6. SAVE. 7. DELETE Data. 8. Sort, 
File. 9. LOAD File fros Disk. 

Ancillary functions are: 1. Centered Captions. 2. Page. 
Management. 4. Directed Line Space. 5. Directed Page End. 6. 
Print a Centered Letterhead. 7. Print a Sign Off. 8. Single 
or Double line spacing. 9. Change Line Length. 10. Set Up а 
Outline. — 11. Print Outline. The "Outline Functions” 


E car Cd Tones 


Program Listing 


400 INPUT "Number of Mailing list Маме?" ;һ: LET k=hi ч. d 
402 INPUT "Sort by: <1) First name {27 L 


`  name"}z 


404 IF z=oa THEN 60 SUB VAL "1010": 60 TO VAL "500" 

406 IF z=ob THEN 60 SUB VAL "640": GO SUB VAL "1010"; 60 SU 
B VAL "670" 

500 60 TO VAL "2000" 

640 CLS : PRINT FLASH oasAT oj,oaj"Last Name Reverse- 40 Se 
conds*;AT ok,oai "Line 640": FOR п=оа TO h; IF o$(n,oa)(oa TO 
od)=" — * THEN NEXT n: RETURN 

642 LET b$z0$(n,oa) 

646 IF bS(LEN b$)z" " THEN LET b$=b$( TO LEN b$-02): &0 TQ 
VAL "646" 

650 FOR 1=LEN b$ TO oa STEP -oa: IF b$(oa TO od)" — * THE 
N NEXT n 

652 IF n>k THEN RETURN 

654 IF b$(1)2" " THEN LET o$(n,oa)=b$(1+oa TO )** "*o$(n,oa 
)( TO 1): NEXT n 

656 NEXT 1 

658 NEIT n 

660 RETURN 

670 CLS : PRINT AT oj,oas"Replace First nane- 40 Seconds; 
T ok,oaj'Line 670": LET b$="" 

672 FOR n=oa TO k; IF о$(п,оа) (оа TO od)=* * THEN NEXT n 
t RETURN 

674 IF mk THEN 60 TO y 

676 LET b$zo$(n,oa) 

682 FOR 120a TO LEN b$: IF b$(1)=" " THEN LET b$20$(n,0a) (1 
toa TO ): 60 TO VAL "686° 

684 NEXT 1 

686 IF b$(LEN b$)=" ° THEN LET b$=b$( TO LEN bé-oa): 60 TO 
VAL "686° : 
688 LET 0$(n,oa)=b$+" '+o$(n,oa)( TO 1) 

690 NEIT n 

692 RETURN 

1010 CLS : PRINT АТ oj,oh} FLASH oaj'Sorting- 1 Minute" ;AT o 
| k,ohi*Line 1010": DIM v$(of,31): LET пећ 

1020 LET IzN-oà 

1030 FOR J=oa TO І 

1040 LET К=Ј+оа 

1050 FOR LzN TO K STEP -oa 

1052 IF o$(1,0a)(oa TO od)s" * THEN 60 TO VAL *1100* 

1060 IF o$(L,oa))0$(J,oa) THEN 60 TO VAL "1100" 

1070 IF o$(1,02)(0a TO od) O* * THEN LET b$20$(L,0a): LET 
м$(0а) 2001,00): LET v$(ob)so$(1,0c): LET v$(oc)=o$(1,od); 
LET v$(od)s0$(1,08): LET v$Coe)so$(1,0f): LET v$(of)so$(1,og . 


~ 


1080 IF o$(1,0a)(oa Т0 od) O* * THEN LET o$(L,0a)#0$(J,0a 
): LET o$(1,0b)#0$(j,0b)! LET o$(1,oc)=o$(j,oc); LET o$(1,0d 
)=o$(j,od); LET 0$(1,06)70$(j,08): LET o$(1, of )#0$(j,of): LE 

T 0$(1,09)20$(j,09) 

1090 LET o$(J,oa)=B$: LET os ob)» (o2): LET o$(j, oc) sv$Co 

b): LET o$(j,od)=v$(oc): LET o$(j,oe)=v$(od); LET o$(j,of)=v 

$(oe): LET o$(j,og)=v$(of) 

1100 NEXT L 

1110 NEXT J 

1120 CLS : FLASH oo 

1130 RETURN 

2000 CLS : PRINT AT 2,6; INK 5;"MAIL'JTAB 19; FLASH 13("Yes” 
AND LEN 0$(1,1)21)4("No " AND LEN o$(1, Dan FLASH 03° AL 

DATA''TAB 9" МЕМО"; ТАВ 19;"FREE="; FREE j "TAB 6; INK 6 
s"<1) Start Мем" 'ТАВ 6; INK 53" (2) Add to List"'TAB 6; INK 6 _ 

Cen? — 


involve a second flexible data base to use for producing a 
ed&line with major and minor topics. Printing of the 
outline is in the outline format with selectable TAB for 
aaor topics. Minor topics are then indented five spaces. 


OPERATION 


Other uses of the mailing list data base are: Invoices, 
Inventory lists, Telephone lists, Magazine article indexes, 
or any data groups that one can set up in 7 line fields. 
The capacity of the aail/inventory data base is about 120 
fields, as programmed. The fields вау be dimensioned larger 
or smaller by simple line number adjustment (line nbr 2005). 

Siaplicity presonified! You just cannot get into 
trouble, and the software is crash proof. A mistake in 
operation will result in a “report code” stop. The cure is 
<60 TO ЕМ) in every case. <60 TO РМ) presents the Function 
Menu, and all program parameters are preserved. There is 
only one possible exception to this easy fix. If you have 
established a "outline data base” and then you select “Start 
New’ at the Mail List Menu, it is possible to “over 
dimension” the mailing list data base by input of too large 
a number for "Number of Fields". When a command is given to 
DIMENSION a character array, and insufficient memory exists, 
the vars file is corrupted which results in a CRASH. Now 
this little blurb on operation is indeed skiapy, but what 
can one say when words are not necessary? The Menus provide 
suple guidance with literal selection choices, thus no need 
to study instructions. 

The Mail/Inventory List Printer: A prompt asks for 
“aout Number of Fields to print". If printing labels or 
eivelopes, "4" would be the correct input. Then "TAB, and 
Spaces between” are prompted. Inputs allow the printing to 
Strike the labels or envelopes uniforaly. The software 
differentiates between a three or four line address and 
spaces accordingly. Another prompt asks, “Twin Labels?”. 
If Yes, then your own return address label prints between 
each "out label". When you want to print inventory or other 
data set-ups, an input of 7 will result in all 7 lines 
printing. Any number of fields 1-7 вау be elected to print 
out. 

Menu electives set up automatic SAVE or LOAD of the 
data bases OR a program that contains data. A prompt "Input 
File Number’ sakes each LOAD or SAVE discrete. LOAD 
selections result in the disk catalog presented on screen 
with a prompt "Input File Name". The Load is automatic and 
the Function Menu appears. At that time all software 
functions are available. 


PROGRAMMING 


$00$ Mail Merge utilizes the «LET /P=0) or «LET /P=T> 
functions of 5005 to print with any Centronics printer or 
the 75-2040. Inputs allow the configuration of desired line 
length for any pre-set print style. Тһе built in 5005 
printer driver is used for printing. The software itself 


i 
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Program Listing (cont.) 

"(3) View List"' "ТАВ 65°<4) Correct List’'TAB 6; INK 5;"(S) 
Print Lab/Env/Inv''TAB 6; INK 6;"<6) Disk SAVE'''TAB 61*47) 
Delete Mail Data''TAB 6; INK 5;"(8> Sort File’’TAB 6; INK 6 
ри"; FLASH 1"9"; FLASH 03") Function Мепи" ''ТАВ 6; INK 53° 

(0) LOAD Mail File'''TAB 6;"Page-"ipgi" “TAB 20;"Line="snn 

2002 PRINT AT ot,okjpgi" “SAT of VAL "25"snn3" "SAT ob, ot} F 

LASH оа; ("NO * AND LEN о$(оа,оа) <06)+("Үеѕ" AND LEN o$(oa,0a 
))0a); FLASH oojAT oc, VAL "24°; FREE 

2003 60 SUB SQ: 60 SUB 11: 60 TO (Z400 OR z>O1)8VAL *2000"+( 

z=00)3VAL "3020"+(Z2=DA)SVAL "2004"4(z>0A AND 2XOF)1VAL "2007 

"4(Z=0F)3VAL "2600°+(Z206)3VAL "2058"+(Z=0H)SVAL *400*+(2=01 
nr 

2004 CLS : PRINT AT 07,0Е; FLASH 04; "Confira, START NEW") FL 

ASH 00''TAB OF; "Cy Yes -or- <n) No”: 60 SUB SQ: 60 SUB IK: 

IF 220A THEN INPUT "Input Nbr of Names"jax: IF ax3VAL *217*) 

VAL "27000" THEN 60 TO VAL "2004" 

2005 DIM 0$(ax,7,312: OIM 0$(ax,7,31): LET IN=Oñ; LET as=0A: 
CLS : 60 TO VAL *2009* 

2006 60 TO VAL "2000" 

2007 IF 2)0А AND 2<0Е THEN INPUT "Ent Stri Nbr "305: CLS: I 

NPUT "Ent end Nbr "iMX: CLS 

2008 IF 2=0Е THEN CLS : INPUT "Twin Labels? (y) yes or <n) М 

o "ji$: INPUT "Ent sps bet: "sSX: INPUT "Ent Tab "318: CLS 

: INPUT "Nbr of Fields (1-7) 4 for labels'jix: PRINT AT 00,08 
i'Üo you want Page Control?*: INPUT "<1) yes or <2) No "к: 
IF К=оа THEN PRINT АТ 0U,00;"Ent ""PG'" for same раде, or a 
nbrio change. ": INPUT P6: PRINT AT QU,00;"Ent '"NN'' for s 

ane line count,or nbr to re-set line count. "i INPUT NN 

2009 FOR 0=М5 TO МХ 

2010 IF 2<0C THEN 60 SUB VAL "2022" 

2011 IF 2:00 THEN 60 SUB VAL '2110* 

2012 IF 2=0C THEN 60 SUB VAL "2034" 

2014 IF 2=0Е THEN 60 SUB VAL "2040" 

2016 IF 0)=МХ THEN 60 TO VAL "2000" 

2018 NEXT 0 

2022 CLS : PRINT АТ OF,0Fj"MI No. "30 

2024 CLS : PRINT AT og,oo;ojAT 0J,00;" Input "j(*Co Name * AN 

0 IN@0A)+("Dept — " AND IN=08)+("St adr" AND IN=0C)+("ct, 

St,Zp" AND INsQD)*("1st Name" AND INsOE)*(*Tel Nor ° AND IN= 

OF)+("spare dta” AND іп=од);" ог zz to quit.": INPUT T$: IF 
T$="zz" THEN LET IN=OA: LET O=MX: CLS : RETURN 

2025 LET O$(0,IN)=T$ — 

2026 IF IN=06 THEN CLS : 60 TO VAL "2030" 

2028 LET INsIN4QA: 60 TO VAL "2024" 

2030 PRINT AT 0H,0050$(0,04) '0$(0,08) '0$(0, 0C) '0$(0,00)'0$(0 

,0E)'0$(0,0F)'0$(0,0g) "OK? (¥) Yes, ог (N> No": 60 SUB IK 

: IF 2:08 THEN LET INsQA: 60 TQ VAL "2024" Í 

2032 CLS : LET IN=QA: RETURN 

2034 IF 0$(0,0A)(0A TO OB)="zz" THEN 60 TO al 

2035 PRINT АТ OE,oo;"M1 No. “30''0$(0,0A)'08(0,08)'08(0,0C)' 

0$(0,00) '0$(0, 0E) '0$(0, OF) i 

2036 PRINT 0$(0,0g) 

2037 PRINT '"Кеу ENT for Next": PAUSE VAL '4e4*: CLS ; RETUR 


N 
2038 IF LEN 0$(0,0A)<OE THEN RETURN 
2040 FOR уса TO x: IF ysoa AND o$(o,y)( TO ob)=" " THEN RE 
TURN 
2041 LPRINT TAB tbjo$(o,y): LET nnenn*oa: NEXT y: 60 SUB VAL 
*2046* 
2042 IF t$="y" OR t$="Y" THEN FOR ysoa TO od: LPRINT TAB tb; 
n$(y): LET nn=nntoa: NEXT y: 60 SUB VAL "2046" 
2044 RETURN 
Conr — 


does not command the printer to change print styles. Style | 
changes must be set manually with the printer's dip | 
switches, or by direct commands entered in the "К mode". If 
the user desires software controlled printer style changes, 
it is practical to build a few aore lines to do that. These 
custom printer control lines would be operated in the К воде 
by either <60 Т0 line) or «60 SUB line). 

"Now you see it, then you dont". Saving memory is à 
necessity in order to create comprehensive software for the 
TS-2068. 38K of FREE poses limitations as to the number of 
functions that can be stuffed into a program. The Safe Disk 
Operating System (5005) provides some interesting memory 
conservation capabilities. We conserve a tremendous amount 
of FREE Raa by first creating the needed MENUS with line 
programming, then SAVING the Screens to diskette, and then 
DELETING the program lines. А 700 byte Menu is then 
presented when needed by this siaple 10 byte command in à 
programa line: <LOAD /"fn" SCREENS). Five such Menus are 
"canned in diskete’ for a saving of about 3K of memory 
usage. 

Other memory saving techniques are used as vell. A 
variable file is first created in program lines. Then after 
the vars are imbedded in memory, the file is SAVED to disk 
with «SAVE /"arg" VAL). Then the lines of programming are 
deleted. Ordinarily the variables in a basic program are 
SAVED with the program and the vars ride in with the prograa 
when it is re-loaded. The vars file in diskette serves as 
back up if a program is inadvertantly CLEARED. Deleting the 
program lines saves nearly a К of memory. Most importantly, 
the vars file contains another memory saving device to be 
discussed next. 

"Pseudo Hex" is a neat system that uses double 
character variables to represent numbers 1 through 20. 
00=0, oasi, ob=2, ос=3, on through ous20. Each usage of 
characters instead of nuabers SAVES 5 bytes for nuabers 1-9 
or 6 bytes for numbers 10 through 20. There are 160 lines 
of programming and each will average 3 usages of numbers 
1-20. The "pseudo hex" table saves between 4 and SK of 
aenory. The entire vars file is only 569 bytes only part of 
which is the pseudo hex table. Therefore some 4K of memory 
is saved this way. Pseudo hex lends itself to human mesory. 
Üne can count on ones pinkies with it, using oa for one 
pinkie, ob for two, etc. Soon it becomes habit. 

Another aemory saving technique is the use of BOOLEAN 
expressions instead of IF THEN. Boolean expressions are 
chained іп а line of programming, where IF THEN expressions 
would require single lines. For example, the two lines: 10 
IF А=1 THEN 60 TO 100. 20 IF A=2 THEN 60 TO 200. А single | 
line with BOOLEAN would be: 10 60 TO (A<ob)s VAL | 
*'100'*(8202)1 VAL "200". The program aakes extensive use of 
Boolean. Some lines contain as many а 12 IF THEN logicals ii 
expressed in Boolean. Memory saving is tremendous, up to | 
70% as compared with conventional IF THEN expressions. The | 
average savings realized is around 30% of total prograa 
length. In this program some 3K of memory usage is | 
conserved. 
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Program Listing (cont.) 


2046 LET D0sSX: IF К=0А AND SX+NND=LN THEN 60 SUB PE: LET 00 
=00: RETURN 

2047 IF 00200 THEN LPRINT : LET 00=00-0А: LET NN=NN+0A: IF N 
ND=LN AND К=0А AND NN+0D)=LN THEN 60 SUB PE: LET 00=00: LET 
!| NN=0A; RETURN 

2048 IF 00700 THEN GO TO VAL "2047" 

2050 RETURN 

|| 2051 NEXT N 

2052 60 TO VAL °2000° 

2058 DIM 0$(0a,0a): 60 TO FM 

2060 60 TO FA 

2061 CLS : 60 SUB VAL "2586": 60 SUB VAL "2572": CLS 

2063 CLS : PRINT AT 09,01; "Please Select'''TAB 00; "<1) TS 20 

40 Printer?*''TAB 00;"<2) Centronics Printer": 60 SUB SQ: 60 
SUB IL: IF 2<0А OR 2)0B THEN 60 TO VAL "2063": LET PR=2-0A: 
IF РА=00 THEN LET /PzT; LET lxsVAL "32": LET qqzoq: LET fd: 
oo: 60 TO FM 

2065 CLS : PRINT АТ O1,0F;"Does printer need а"'ТАВ OF;"line 
feed?:"''TAB ОЕ; "у> yes or (m по": 60 SUB SQ: 60 SUB IK 
: LET FDzZ 

2066 CLS : PRINT АТ 01,00; "Тигп Printer ON, andi” 

2067 INPUT "Input MAX Line Length?"3LX: IF FO=0A THEN LET /P 
=0: PAUSE OL: POKE VAL "23323",LX: IF fd=oa THEN POKE VAL "2 
3324" ,oj 

2068 IF fd=ob THEN POKE VAL °23324°,00 

2070 CLS : INK 6: PRINT AT 3,6; "FUNCTION MENU'''TAB 63"<1) M 

ail List Menu''TAB 6; INK 53"<2) Caption''TAB 6; INK 63°<3) 
Forsat'''TAB 6;"<4) Page Management” ТАВ 6; INK 5;"<5) Line 

Space”'TAB 6} INK 6146) Page End'''TAB 63"<7) Letterhead*'T 
AB 6j INK 5148) Sign Off"''TAB 6} INK 63"<"§ FLASH 15"9"3 F 

LASH 03") Set up Qutline''TAB 6; INK 510) Print Qutline''' 
TAB 6;"Раде=";ро; ТАВ 163"Line="snn 

2071 INK oe: LET ggzoa; PRINT АТ ot,ok1pgi" "SAT ot, VAL "21" 
inns" ": 60 SUB sq: 60 SUB il: IF z<oo OR z?oi THEN 60 TO fa 

2072 IF Z=ÜF THEN 60 SUB РЕ: 60 TO FM 

2073 IF z=oe THEN GO SUB sp: 60 TO fa 

2074 60 TO (zsoo)tVAL "3324'*(zz0a)1VAL "2000'*(zsob)1VAL "2 

094**(zzoc)tVAL "2083'*(z20d)1VAL "3004" *(zzog)1VAL "3370"+( 

zzoh)fVAL "3384**(zsoi)VAL "3300" 

2083 CLS : PRINT АТ 5,11; "FORMAT MENU'''TAB 6$"<1) Single Sp 
асе"''ТАВ 63°{2) Double Space'''TAB 6;*43) Line Length Chang 
e'''TAB 6;"<4) Page Center Change" ''TAB 63"<"3 FLASH 1; "5°; 

FLASH 03") To Function Menu” 

г 2084 60 SUB sq: 60 SUB il: IF z=od THEN CLS : INPUT "Input P 
age Center";qq: 60 TO VAL "2083" 

2086 IF zsoc THEN CLS : PRINT АТ 0J,0Aj"key In lgth: "i INPU 
T LL: LET /pzo: PAUSE OL: POKE VAL "23324", (07 AND fdsoa)*(o 
о AND fdeob): PAUSE OL: POKE VAL "23323°,LX 

2087 IF z*oe THEN 60 TO fa 

2088 IF z<oc AND z>oo THEN LET sdsz 

2092 60 TO VAL "2083" 

i 2094 CLS : PRINT AT 07,00; "Туре the Cap'''TAB odj "Line Igth 
г Limit ist "SLE: INPUT w$ 

' 2095 LPRINT ТАВ QQ-LEN a$/OB3m$: LET NN=NN+0A: 60 SUB bu: OU 
| T po,24 

: 2096 60 TO FM 

2110 LET IN=0A 

2112 CLS : PRINT "Enter Field Nbr to Correct, or ''g'* f 
or next field. "''"MI No. *jQ''"Fields''"1. "30$(0,0A)'"2. "j 


| 0$(0,08)'*3. "30$(0,00)'°4. "308(0,00)'"S. *}0%(0,0ЕЮ)'*6. "3 


i 


i 0$(0,0F)'"7. 080,09): INPUT "Field Nbr or 8:";1№: IF [No 


h THEN КЕТИН yj 


Combining the above techniques reduced the menory 


program length. These facts are given both to help you 
understand the cryptic programming and to whet appetites for 
a later article about Boolean Programaing. When studying 
the programming, “think pseudo hex” to understand the "0 
vars’. Look at lines 2586 through 2590 for the variable 
tables. It will help to make a index card for reference to 
the variables. Later we vill DELETE these lines and the 
vats will no longer be visable. While in that area, EDIT 
line 2590 and change the LETS for "N$()' to you own 
letterhead and sign off data. 


The LLIST Instructions 


Key in the LLIST as given. This is a long and 
laborious task and nothing can be learned in the process 
that cannot be learned by studying the listing. It is 
likely that quite a number of key in errors vill result 
which will have to be de-bugged. Why not save yourself the 
labor and order the "5005 Issue Diskette” which is offered 
in the yellow pages of this issue. The diskette also 
contains the other utilities and programs presented in this 
issue. At $16.95 it is quite a bargain. But whether you do 
or not, please follow through the logic of the following. 

The program operates by <60 TO 2061). The LLIST 
contains 5 programmed menus which will be SAVED as SCREENS 
files to diskette. Then the line numbers for the menus vill 
be deleted and then each senu line vill be re-created with a 
single «LOAD "name" SCREENS) command. The Variable files of 
Lines 2586 through 2590 will be initialized, then the Vars 
will be SAVED to disk and those line numbers deleted. If 
you have completed the Key In project, Type <60 ТО 2061) and 
follow the prompts until the FUNCTION MENU appears. If you 
cannot get that far, then you aust re-check for key in 
errors in lines 2061, 2572, 2575, 2578,2579, 2578, 2579, 
2586, 2588, 2590 and 2596. Continue by the following steps 

1. Operate the program and exercise all aenu functions. 
Create а mailing list, checking the menu selections of the 
Mailing list menu. Print the Mailing list in it's various 
offered modes. Test the "Print Labels” воде. Use a spare 
diskette to test the SAVE and LOAD functions. 

2. Check all selections of the Function Menu. Create a 
"Outline Data Base’ of at least 2 Major Topics and 2 Sub 
topics of each. Then PRINT the Outline. Print a Caption, a 
Letterhead, a Sign Off, and test the page management 
functions. 

3. If any of the above fail, a report code will appear 
at the bottom of screen. You aust then check the line 
number reported, edit the line and correct the key in error. 

4. Ve will now assume that SOOS MAIL MERGE is operating 
correctly in all sodes. Now use a spare diskette and (SAVE 
/amrg"LINE 2097) ENTER. This is a temporary save, using а 
different title and is for SAFETY in case you lose the 
program for some reason. 

S. (CLEAR) the computer and type (60 TO 2061) ENTER. 
Respond to prompts until the Function Menu appears. (BREAK) 
and type «PRINT FREE) ENTER. Маке a note of the figure 


—— M T 


, 
length of 5005 Mail Merge from around 21K to 9K total ! 


Program Listing (cont.) 

2120 CLS : PRINT AT oj,oojo$(o,in);ñT ои, оо; "прі *; ("Со Nane 
" AND in=OA)+("Dept — " AND in=OB)+("St adr * AND іп=0С)+ 
(*ct,St,2p" AND in=00)+("1st Name” AND in=OE)+(*Tel Nbr ' AN 

D in=OF): INPUT T$ 

2122 LET o$(o,in)=t$: CLS : 60 TO VAL "2112" 

2550 PAUSE VAL "4e4": LET z=CODE INKEY$-48; IF z<oo OR zoi 

THEN 60 TO il: REM 3 For Key Q to 9 

2553 RETURN 

2554 IF PEEK VAL "23611°<VAL "221° THEN 60 TO IK: REM 3 For 
Yes or No. 

2555 LET Z-PEEK VAL "23560": POKE VAL "23611",VAL "220"; IF 
2OVAL "78" AND ZOVAL "89" AND ZOVAL "110" AND 2OVAL *121 
* THEN 60 TO IK 

2558 LET Z=(0A AND z=VAL "89")4(04 AND Z=VAL "121")+(08 AND 
2:VAL "78")+(08 AND Z=VAL “110") 

2560 RETURN 

2567 IF IN 1272253 THEN 60 TO BU 

2568 RETURN 

2570 CLS : PRINT AT oj, odi "INPUT FILE NUMBER": 
t$z"MMRG'st$: SAVE /t$ LINE 2061: BEEP oa,oa: 

ñ 

2572 CLS : PRINT AT 4,4) INK 53"%33 "3 INK 6j" SDQS MAIL MERG 
E"; INK 53" f31'''TAB 3;" MAIL LIST"; INK 33° LABELS "j INK 4 
;"ENVELOPES"''TAB 6; INK 6j" INVENTORY "3 INK 2; 'Qutlines''' 
TAB 13; INK 4; VITH'''TAB 33 INK 4; "SAFE"; INK 63" DISK”; IN 

K 53" OPERATING "$; INK 2; "SYSTEM ' "ТАВ 113 INK 3; 1984 by" 
"ТАВ 3;"T$-2068 SAFE DISK UP-DATE''TAB 6;"1317 Stratford Ave 
''TAB 5; "Рапава City, FL 32404" 'ТАВ 7j*rights reserved" 

2575 FOR N=0A TO of: 60 SUB SQ: PAUSE VAL "100": NEXT №: RET 

URN 

2576 INK xa: PLOT 00,00: DRAW oo,VAL "175": DRAW VAL °255°,0 
о: DRAW oo,VAL *-175*: DRAW VAL 1.755" оо; LET xasxatoa: IF 

xa)of THEN LET xa=oa 

2578 INK xa: BORDER xa*oa: PLOT oh,oh: DRAW oo, VAL #159": OR 
AV VAL "239" ,оо: DRAW oo,VAL "159": DRAW VAL "-239",00: LET 
ха=ха+оа: ВЕЕР oa/oj,VAL "40": IF xadof THEN LET xa=ob 

2579 INK of: RETURN 

2580 BEEP .1,40: PAUSE VAL "20": RETURN 

2582 BEEP 08/0J,00: ВЕЕР OB/OJ,0H: BEEP QB/0J,0J: BEEP 08/0] 
‚00; RETURN 

2586 LET po=127: LET 00*0: LET оа=1: LET ob=2: LET ос=3: LET 
od=4: LET oes5; LET ofz6: LET og»7: LET ohz8; LET oi*9: LET 
ој=10: LET ок=11: LET ol#12: LET ов=13: LET оп=14: LET op*l 
5: LET oq=16: LET orz17: LET os=18; LET ot=19; LET ou=20 
2588 LET tv=oo; LET xas2: LET 422578; LET 1nz54i LET nn=0: 
LET pgel: LET pr»i: LET bus2567: LET zc*5; LET sq=2576: LET 
faz2070: LET sd=1: LET sp=2990: LET 1h=2610: LET ре=3014: LE 
T iks2554: LET il=2550: LET 11264: LET 1х=80: LET qq=40: LET 
tb=8: LET fd=2 

2590 DIM n$(og, 31): LET at(oa)=°TS- 2068 Safe Disk Up-Date": 
LET n$(ob)#"1317 Stratford Ave.": LET n$(oc)="Panama City, F 

L 32404"! LET n$(oe)s"Bill Jones": LET n$(of)2*904 871 4513" 
: LET n$(og) "Sincerely," 

2596 RETURN 

2600 CLS $ PRINT АТ 0j,0j;" SAVE Мепи"''ТАВ 4j* X1) Save this 
Mail File'''TAB odj"2) Save Program + File": 60 SUB sq: 60 
SUB il: 60 TO (z4oa OR zob)SVAL "2600's(zsob)1VAL "2570's(z 
=oa) VAL '2602' 


Zw Con FK x 


INPUT t$; LET 
CLS ; 60 TO F 


Z 


rj 


presented. Next, Install a freshly formatted diskette and 
type: (SAVE /"arg" VAL) ENTER. This saves the variable file 
to diskette. We will call this your "program diskette” and 
it will be used for all SAVES from now on. Next, DELETE 
lines 2586, 2588, and 2590. 

6. The Function Menu should still be still on screen. 
If not, type: «60 TO fa) ENTER. BREAK and type: (SAVE /"fa* 
SCREENS? ENTER. Тһе disk should run and the Function Menu 
vill be saved to diskette. To make sure, type (LOAD /"fa' 
SCREENS. The Function menu should boot in froa disk. If 
not, repeat the procedure of item 6. Next, ENTER a NEW LINE 
2070: <2070 LOAD /"Ға" SCREENS). Enter the line, which will 
replace the existing line 2070. Type: <60 TO fa? ENTER. 
The Function aenu should boot in from diskette. 

7. Туре «LIST 2083 ENTER). BREAK and type <60 TO 2083 
ENTER). The Format Menu should appear. BREAK and type: 
{SAVE /"fo" SCREENS ENTER). Then type «CLS) and (LOAD /*fo* 
SCREENS). The Format menu should boot in from diskette. If 
0.K. then type а new line 2083: 42083 LOAD /"fo" SCREENS) 
Enter the line. Then type «60 TO 2083 ENTER. Again, the 
format menu should boot in from disk. 

8. BREAK and LIST line 2572. Then add Line 2574: <2574 


STOP). Туре <60 TO 2572 ENTER). The title screen should 
appear. Туре «SAVE /'cpr" SCREENS ENTER). Type (CLS? 
ENTER. Туре «LOAD /"cpr* SCREENS. The title screen should 
boot in. Type an new line 2572: 42572 LOAD /"cpr" SCREENS. 


Type «CLS) <60 TQ 2572 ENTER). The title screen should boot 
in fron disk. Now DELETE line 2574 which has the STOP. 

9. Type «LIST 2000 ENTER). BREAK and type <60 TO 2000 
ENTER). The Mail List menu should be on screen. BREAK and 
type «SAVE /"al' SCREENS ENTER). Type «CLS) «LOAD /'al* 
SCREEN$ ENTER). The Mail list menu should boot in. Type a 
new line 2000: 42000 LOAD /"m1" SCREENS). 

10. Type: «LIST 3004 ENTER). BREAK and type: «60 Т0 
3004 ENTER). The Page Management Menu should appear. BREAK 
and type: «SAVE /'pg' SCREENS). Туре «CLS) «LOAD /*pg' 
SCREENS ENTER). The menu should boot in from disk. Туре a 
new line 3004: 43004 LOAD /"pg" SCREENS ENTER). Type (CLS? 
«60 TO 3004 ENTER). The screen should boot in. 

11. BREAK and type: «SAVE /"SDOS MMRG"LINE 2061 ENTER). 
This SAVES the main program to disk. 

12. Type: <CAT ENTER). The disk directory should show 
the programs: <arg VBLS) (fa BYTES) <fo BYTES) (cpr BYTES) 
{pg BYTES) «SDOS ММАЄ). Мом we will install the file zero 
auto load line. NEW the computer. Then type this one line 
program; «10 BORDER 0: PAPER 0: INK 6: CLS: LOAD "5005 
MMRG') ENTER. — Next type a direct command: SAVE /0 ENTER. 
Next, type: «LOAD ENTER). The main program should AUTO LOAD 
and operate. 

13. BREAK and type: «PRINT FREE ENTER). Compare this 
FREE report to the earlier FREE report and you will see the 
savings of memory resulting from the use of disk for major 
parts of the prograna. You may go ahead and operate the 
software now and benefit from the extra FREE memory to use 
for data storage. 

The concepts of "Disk Dependant” software should now be 
Clear. The disk drive, employed with ingenuity, can 


| 
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Program Listing (cont.) 
2602 CLS ¢ INPUT "Input Mail File Nbr;"it$; LET t$="a"+t$; Š 
AVE /t$ DATA 080): 60 TO fa 
2604 IF 2=06 THEN CLS : PRINT AT QJ,OH;" INPUT FILE NBR": INP 
UT t$: LET t$="a-"+t$: SAVE /t$ DATA o$(): 60 TO VAL "2000" 
2990 LPRINT : LET NN=NN+OA: IF NND=LN THEN 60 SUB PE 
2994 IF sd=ob THEN LPRINT : LET NNeNN40A: IF NN>#LN THEN 60 
SUB PE 
2996 RETURN 
3004 CLS : PRINT AT 3,5; INK 6; "РАСЕ MANAGEMENT"''TAB 5; INK 
Si"Next Page is ";ро' 'ТАВ 5i'Lines to Page Епӣ="; 1п-пп' 'ТАВ 
113" беЈесі” ' "ТАВ 5;"<1) Page End'''TAB 53"<2) Adjust Line N 
uaber'''TAB 53"<3) Re-number Page'''TAB 5;"<4) To Function M 
enu' 
3005 PRINT AT oe,osipgi" "SAT og, VAL "23"; 1п-пп;" "; 60 SUB 
sq: 60 SUB il: IF z<oa OR z?od THEN 60 TO VAL "3004" 


| 3006 IF 2-00 THEN 60 TO FM 
| 3008 IF 2:08 THEN INPUT “Ent new lines to end. 


"SNL? LET NN= 


' LN-NL: 60 TO VAL "3004" 


| 


3010 IF z=oa THEN 60 SUB pe: 60 TO fa 
3012 IF 2=0C THEN INPUT “Enter next pg No. 
3004" 

3013 60 TO VAL "3004" 

3014 IF РА=00 THEN LPRINT jpg LET NNz 
QA: LET Рб=Рб+0А: RETURN 

3016 IF NN<VAL "59" THEN LPRINT ; 
9" THEN 60 TO VAL "3016" 

3018 LPRINT TAB QQ3P6: OUT PO,OL: LET PG=PG+0A: 
ETURN 

3020 CLS : PRINT АТ oj,ob;"Install Data Diskette," 'ТАВ obj"T 
ouch ENTER": PAUSE VAL "4e4": CAT : INPUT "Enter TITLE ONLY 
of C ARRY '34$: PRINT ''t$: LOAD /t$ DATA o$(): 60 TO V 
AL "2000" 

3300 CLS : PRINT АТ oj,ob;"Qutline Fill": INPUT "Enter Nbr o 
f Major Topics: "jaj: INPUT "Enter Nbr of Sub Topics of each: 
'isb: INPUT "Enter Column width: "319: DIM k$(mj,lgt): DIM v 
$(aj sb, lgt) 

3304 LET a=oa: FOR n=oa TO aj 

3305 IF maj THEN 60 TO VAL "3320" 

3306 PRINT АТ on,ooj"Ent Major Line №"; INK ое; п; INK ofj" о 
t zz to quit: INPUT k$(m): IF k$(n)( TO ob)s"zz" THEN LET k 
$(n)2'*: 60 TO VAL "3320" 

3308 FOR у=оа TO sb: PRINT AT оп, од; "Міпог";АТ on,og} INK od 
ty} INK of: IF y)sb THEN 60 TO VAL "3316" 

3310 INPUT v$(n,y): IF v$(n,y)( TO ob)="zz" THEN LET v$(n,y) 
z''i 60 TO 3316 

3312 NEXT y 

3316 NEXT n 

3320 LET n»aj: LET y2sb: CLS : PRINT AT oj,obj"Print the Qut 
line now?"''TAB obi'(y) Yes or <n) No": 60 SUB ik: IF z=ob T 
HEN LET nzaj: 60 TO fa 

3324 CLS ¢ INPUT "Input Tab for line printi*jtz 

3330 FOR nzoa TO aj: IF k$(n)( TO ор) =" * THEN 60 TO VAL "3 
354" 

3334 LPRINT TAB izik$(n)'': LET ппапп+об: IF nnd#ln THEN 60 
SUB pe 

3338 FOR ysoa TO sb: IF v$(n,y)( TO ob)s' " THEN 60 TQ VAL 
"3346" — ENS 


= edo Z 


"$PG: 60 TO VAL ' 


LET NN=NN+OA IF NN(VAL "S 


LET NN=OA: R 


ba 


aitigate the basic deficiency of the 15-2068, namely 
‘insufficient FREE memory" to use for programming. As the 
Qliger EPROM developments continue, Safe Disk Up-Date vill 
explore each new capability in detail. [n the meantiae, 
follow on issues will discuss subscriber questions and 
comments about this softare "5005 Mail Merge". Feel free to 
write. A quick letter response vill be sent and the 
questions comments will appear in the next issue. 
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Program Listing (cont. ) 

3342 LPRINT TAB tztoesv$(n,y)'': LET nnenntob: IF пп) #11 THE 
N G0 SUB pe 

3346 NEXT y 

3350 NEXT n 

3358 CLS : PRINT AT oj,obj'Delete the Data?" ''TAB обу" (у?) Ye 
s or <n) No": 60 SUB ik: IF z*oa THEN DIM k$(oa,oa)s DIM v$( 
02,02] 

3360 60 TO fa 

3370 FOR nei TO oc: LET afen$(n): 60 SUB VAL "3380": NEXT m: 
LET a$zn$(of): 60 SUB VAL "3380": 60 TO fa 
3390 IF aS(LEN a$)=" " THEN LET a$=a$( TO LEN а$-оа): 60 Т0 
VAL "3380" 
3382 LPRINT TAB qq-LEN a$/obsa$: LET nn=nntoa: RETURN 

3384 LPRINT ''': LET a$=n$(og): 60 SUB VAL "3380": LPRINT '' 
t* LET a$sn$(oe): 60 SUB VAL "3380": LET nnenn*oh: 60 SUB pe 
: 60 TO fa aw Ef т 


Printer Control Programming 


«LET Po) takes care of “sending LPRINT 
"Printer Control Codes” 
aodes. 


located in a difficult to reach area. What is needed is ‘software control’. 
The menu would look something like the following: 
4. Italic Font. 
Vhen the menu is presented, a touch of key 1-5 should set a variable to the value of the key touched. 
Ve will let the variable "ps" be our svitch. 
For example; if Key 1 is touched, Pica style is selected and "os=1". Before 


"printer control group". First, a MENU is needed. 
1. Pica Style 2. Elite Style. 3. Condensed Style. 


in this issue. 
it: (900 LET рѕ=2). 


prompt routine 
prograa line will do 


continuing, you should make sure that the printer actually responds to a LPRINT conaand. 
If not, then you must set up the printer correctly before proceeding. 


12345 is printed to paper you may proceed. 


TO 1000) 


character streams” to а Centronics printer. 


to command the printer to do such 
Most printers have a group of dip switches to manually set these functions, but ususally the dip switch panel is 


Now, assuming that a menu has deen constructed, ve vill build a printer control group. 


The other half is sending 
things as change type fonts, set italic, and set underline 


Lets explore how to build a software 
5. Underline. 

See the INKEY$ 
After the menu and the INKEY$ prompt, this 
Type <LPRINT "12345" ENTER". If 


LINE 900: «900 LET ps=z: 60 


Line 1000 should contain the programming needed to CANCELL all special printer set-ups to make ready for commands to 
establish the print styles selected at menu. Sone printers have a single command code to do this, BUT many printers vill 


also RESET TOP OF FORM when the RESET comaand is used. 
been directed. 
TOP of FORM. 


code group as vould be given in à printer manual 
needed: — «line 60 SUB BU: QUT 127,27: 60 508 EU: 
Explanation: «QUT 
«60 SUB BU) is a line to assure PRINTER READY). 
60 TO BU) (2002 RETURN). 


That would disturb a page foraat after à print style change has 
Line 1000 should contain groups of CANCEL commands for every conceivable printer set-up, WITHOUT resetting 

Then you'll be ready to set the print style selected at menu. 

Before going to the next lines, ме vill discuss how control codes are sent to a printer. 

(27,100) (80, 102) 


Lets use a typical control 
To send such a group, this prograaming vould be 
127,100: 60 SUB BU: QUT 127,80: 60 SUB 8U: OUT 127,102 >. 


127) sends the control code to the printer, BUT- the printer nust be READY to receive a control code. 
Ve vill nov construct "line BU as line 2000. 


«2000 IF IN 12742253 THEN 


To explain the above: When à printer is READY to receive a control code, <IN 127) produces character code 237. If 


NOT READY, «IN 127) produces the character code 253. 
Nov, using the examples given, line 1000 


codes. 


Next, (IF THEN prograaaing is needed to set the print styles selected at menu. 
QUT 127,------ the printer control codes needed to set pica style. 


«1002 IF рѕ=1 THEN 60 SUB BU: 


between each.? 


1004 IF ps=2 THEN 60 SUB BU; QUT 127,----- the coamand codes needed to set ELITE style. 


OUT 127 coanand.>. 


can be constructed: 
continue all control codes needed to CANCEL ALL printer set-ups---). 


So, line BU (2000) vill loop itself until the printer is READY. 


«1000 60 SUB bu: QUT 127,27: 60 SUB bu: QUT 127------ 
Refer to your printer manual for the correct control 


Typically, these vould be; 
Use 60 SUB BY 


Use 60 SUB BU between each 


Continue building prograa lines as above for commanding the printer to set the other menu selections. When finished, 


the last iine should be (line 60 TQ the line of your wajor menu). 
Chances are that the print style changes selected at nenu WILL be made at the printer, BUT, 
If so, check the printer manual to find the "Cancel Buffer" control code. Usually this 


that have been constructed. 
extraneous line feeds vill occur. 


is character code 24, but some printers use an extra coamand code. 
code is inserted after each group of control codes for a special function. 


QUT 127 command. 


Try out the “print style aenu" and the prograa lines 


To eliainate extraneous line feeds, the Cancel Buffer 
Dont forget to use <60 SUB BU) between each 


£2? 


NOTE; The information in this article is believed to be correct, 
but the LIST group and author take no responsibility for any 
damage incurred by the experimenter using this information. 


NA MODEM POW u IES 


Like many other TIMEX enthusiasts I recently purchased a 
surplus 2050 modem board. While the modem worked Fine, I did not 
like the extra tangle of cables it created on my desk. It was only 
a short time before I figured out hou to run the modem without ап 
extra wall transformer by obtaining a S volt supply from my 2068. 
If you are using a modem and don't have a socket for the extra 
pouer supply, or you just don't like the extra cable, this article 
shows how to run the 2050 modem with any TIMEX computer without 
using an extra power supply. 

Before I describe any changes to the modem board, a short 
description of the original power supply would be helpful. There 
are 12 integrated circuits on the modem board, 11 of which аге 
Powered by the computer's 5 volt supply obtained from the 
computers rear edge connector. The remaining chip, a LM-1458 op- 
amp is the only one that uses 9 volts. The other tuo components 
that are connected to the 3 volt supply are the relay used to dial 
the number you are calling, and the carrier detect LED (Light 
Emitting Diode).These three components draw a negligible amount of 
Power, in fact, the relay only draws power in short "bursts" when 
the modem is dialing. This low S volt consumption makes it easy to 
Find an alternate power supply for the modem. 

Ihe easiest way to obtain the 8 volts is from a battery. The 
"transistor radio” type is fine, and will power your modem for 
many hours of "connect time”. But, batteries do go dead, and 
usually at the most inconvenient times. If you decide to use a 
battery, keep a spare handy to replace the original when it loses 
power. All you need to connect a battery to the modem is a” S volt 
battery snap", available from Radio Shack, a small soldering iron, 
and a bit of rosin core solder. See FIGURE ONE for details on 
where to solder the connector. If you don't want to solder 
anything to your modem board, the battery snap can be soldered to 
а 1/8" mini phone plug, also available from Radio Shack. Connect 
the red wire of the battery snap to the tip terminal of the plug, 
and the black wire to the body, or side terminal. The battery 
adaptor can then be plugged into the power socket on the back of 
the modem. You сап reduce your modem's 9 volt consumption by 
running the carrier detect LED off the S volt supply. This 
involves cutting one lead of the LED, adding a jumper wire, and 
adding a 500 ohm 1/4 watt resistor to the modem board. See FIGURE 
ТШО for details. If you do run the modem off a battery, just 
remember to disconnect it when not in use. If left connected, the 
battery will go dead over night. 

If you use a 2ZX/81, Т5-1000, 15-1500 or SINCLAIR Spectrum you 
can obtain S volts for the modem from the edge connector of the 
computer. Only two jumper wires are needed to make this 
modification. See FIGURE THREE for details on where to connect the 
jumpers on the modem and the adaptor board the plugs onto the 


= 14- 


computers edge connector. If you make this modification, remove or 
"plug" the power connector on the back of the modem board so 
another power supply can’t be plugged in. 

TS-2068 owners do not have things so easy, there is no 
connection to the edge connector pin that supplies 3 volts on the 
other TIMEX models. There isn’t even a suitable supply to tap 
inside the computer. All is not lost though, the narrow ZX/81 
sized edge connector сап be cut off the adaptor board, the 
remaining pins removed with a hot soldering iron, and а larger 
2068 sized connector soldered on. (Available from Zebra Systems, 
address at the end of the article.) The 15 volt supply that powers 
the computer can then be tapped off one of the pins that was not 
on the small connector. The Zebra Systems connector has all the 
pins numbered an labeled, but if you are using another connector, 
see FIGURE FOUR for pin locations and names. Once the 15 volts 
is available on the new connector, a voltage regulator will have 
to be used to supply the necessary voltage for the modems 
operation. A 7809 voltage regulator (9 volts) can supply all of 


the power needed for the modem, unfortunately, it is nearly 
impossible to Find. Two alternatives are left, use another voltage 
regulator, or run the modem off a different voltage. It just so 


happens that most S volt wall transformers, at low current draw, 
produce about 13 volts. Since the modem uses very little power, it 
actually runs off the 12-13 volts supplied by the "S volt" 
adaptor. Measure the voltage yourself and see. Radio Shack does 
sell a 7818 voltage regulator (12 volts) that can be used to power 
the modem. Details of its connection are in FIGURE FIUE. If you 
have a 5 volt regulator handy (7805) it can be tricked into 
producing 9 volts by the addition of tuo resistors to the circuit. 
See FIGURE SIX for details. Either regulator will work fine, use 
the one of uour choice. Mount the regulator on a small heat sink 
and attach it to an empty spot on the modem board with epoxy or 
double sided foam tape, making sure the heat sink and regulator 
pins are not touching any components on the board. Once again, 
remove or plug the modem's pouer socket. 

IF you have any electronics construction experience, you will 
find these modifications easy. I will, however, offer a few words 
of advice to the novice "harduare hacker”. Use a small (25 watt or 
less) soldering iron and rosin core solder. DO NOT use acid core 
solder or brush on Flux. The jumper wires do not have to be thick, 
"telephone" wire will work fine. And please check all the 
modifications twice before plugging anything in. 


— Joh. Bell 
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WE 
PEKAO TRADING CORPORATION PACZKI ee 


470 Park Ave. South, New York, NY 10016 p : 
Tel.: (212) 684-5320 SS Nr 87006 5,38 kg net - 11, 86 Ibs - pin 
NKA - hi 
333 North Michigan Ave., Chicago, IL 60601 НАРЫ Ж 360g 1 сап 
Tel.: (312) 782-3933 SZYNKA (LOPATKA) - shoulder ham 454g 1 сап 
- MIELONKA WIEPRZOWA - chopped pork 300g 1сап 
CS MIELONKA “Luncheon hg ҮМ 300g 1 сап 
OWINA W SOSIE - 
SAMOCHODY OSOBOWE - Automobiles WOLOWENA YI SSI yioo in 355 gx Ã cats 
WLASNYM - 
Produkcji polskie] - Polish made Mir a pawl A санг дий 
SMALEC WIEPRZOWY - pork lard > 9 i ie 
9 


Termin realizacji 5-6 miesięcy - Delivery 5-6 months 


$1010 FSO 125P BERLINA 1,5 L (зә > 
5-080b., 4-drzwiowy, siinik 4-cyl., 75 KM, szybkość 
maksymalna 155 km / godz., zużycie paliwa 8.5 | / 100 km, 
przy szybkości 90 km / godz., ogumienie 165 SR x 13* 
5-passenger, 4-door, 4 cylinder, 75 HP, — 


max. speed 96 mph, gas consumption 28 mpg 
(a! speed 55 mph), tires 165 SR x 13" 


WEGIEL 1 KOKS - Coal and Coke 


PARÓWKI W ZALEWIE - trankfurters in broth 


KOMPUTERY I WYPOSAZENIE DODATKOWE 
Computers - and Additional Equipment 
$146.00 


BT972 TIMEX 2048 /USA 
Komputer osobisty 8 bitowy, ROM 16 KB, RAM 48 KB, 
w zakresie programowania репа zgodność z komputerem 
Spectrum ZX, Basic - podstawowy jezyk komunikacji, 
możliwość współpracy z odbiomikiem TV, magnetotonem, 
drukarką, stacją dysków, manipulatorem (joystick) bez 


‚ 00609 sa er “Orzech” 1/1! 1t $77.00 konieczności podtaczania interface. Posiada możliwość 
с ut" 171 generowania prostych dtwiekow. 
00819 KOKS opatowy - coke 1t $100.00 Personal computer, 8 bit, ROM 16 KB, RAM 48 KB, 


in the programming field compatibility with Spectrum ZX 
computer, basic language of communication, possibility 
oí cooperating with TV, tape recorder, printer, disk station, 
manipulator (joystick) without need of interface connection. 
Has possibility of generating simple sounds. 


Dostawa (bez dodatkowych opłat) na adres wskazany przez klienta 
w terminie 2-4 miesiecy. 
Delivery (without any additional charges) to recipient's address. 
Delivery 2 to 4 months. 


PACZKI Z BANANAMI - Parcels with Bananas PLEDY — Plaids 
Nr BL148 $12.50 
BANANY - bananas 5 kg - 11,02 Ibs BP001 ALPACO "Yacht" / Mochy $23.00 
ge a qued GNI tend 
КАШ = oem 
NE 5 кё +1755 из Alpaco "Yacht", 92% wool 8% polyester, 
Nr BL150 $24.50 size 130 x 170 cm 
BANANY - bananas 10 kg - 22,05 Ibs 
BP005 ALPACO "Roulette" / Wiochy $9.50 
Paczki z bananami dostarczane ва samochodami do domu odbiorcy. 70% akryl, 30% inne, 
Banana parcels are delivered by truck to homes of recipients. мут. 130 х 170 ст 
——  —— Alpaco “Roulette”, 70% acrylic, 


30% other, size 130 x 170 cm 


A CASSETTE GROWS IN BROOKLYN by John Pazmino 


If you're looking for quality C-10 cassete tapes, hop on any train 
headed for Downtown Brooklyn. Then skip over to Jackpot Sound Inc, 466 
Fulton Street near Duffield Place. 

There you'll find genuine Scotch C-10 computer cassettes, in hard 
boxes, all cellophane wrapped on original hangers from Minnesota Mining 
and Manufacturing Company. Cost: 10 for one dollar! Hey!, that's what | 
you pay just for the boxes alone!! | 

The 5-minute duration on each side is perfect for just about all 
Spectrum/TS2000 programs and for the shorter ZX81/TS1000 programs. 

Yes, more things grow in Brooklyn besides trees and Haitians. 

What's this? The last time you went to Brooklyn you had hives for a 
month? Well, they did go away eventually, yes? 

Alright, already, you don't HAVE to go to Brooklyn. Jackpot has a | 
New York outlet at 30 East 14th Street near University Place. Take the 
green, yellow, or gray train to Union Square for the same ten-for-a- 


buck deal. | 7 
š 
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M ом& ]992 KAmree by Theo Turk. 
۸/5 April 1, 1987 


At last, someone finally wrote an Electronic Cross-word 
puzzle that can be played on any TS1000/1500 Computer. With this 
program, you have a choice of solving the pre-programmed puzzle 
as listed here or entering your own puzzle by simply changing 
AS. BS and CS; Lines 10-40. | 

When first run, the computer will ask you for a "size of 
puzzle". A maximum size of (19 x 19) can be accomodated. 
Second, the computer will want to know the number of “Blocks” 
required. These are the "Black Squares" as seen on every cross- 
word puzzle. 

Line 10 contains all of the "Across" information that will 
be scrolled at the bottom of your screen. Note: The data format, 
as typed in, is non-critical. Note: The first character in 
Line 10 MUST BE an Inverted "A" - Code 166. 

‘ Line 20 contains all of the "Down" information that will 
i13: sabe scrolled at the bottom of your screen.  Again-Note: The data 
chara:format, as typed in, is non-critical. Note: The frst character .: 
ertec in Line 20 MUST BE an Inverted "D" - Code 169. The Inverted 
"A" and "D" characters are used to signal the computer to change 
signs when required and also MUST BE included. т" 
Sx Line 30 (BS) contains the "Answers" for Across and MUST BE 
typed in exactly as follows: Let BS-"(AO)JFK(AA4)RAT(A8)..(" etc. 
Note: The last character, before the end quote mark, must be 
a "(" character. š 

Line 40 (CS) contains the "Answers" for Down and like Line 

30 must be typed in as: Let CS="(A@)JAW(A1)FLO(A2)KENNYROGERS(A4) 
.(" etc. Note: The last character, before the end quote mark, 
must be a "(" character. 

The correct answer is determined by the number of letters 
between the last ")" and the next "(" character. Example: Let 


BS-"(AQ)JFK(A4)...; the correct answer for (AQ) across is "JFK" 
and is 3 letters long. Example: Let C$-"(AO)JAW(A1)FLO(A2) 
KENNYROGERS(A4)...; the correct answer for (A2) down is "KENNY 


ROGERS" and is 11 characters long. ‚ 
» oad 
i 
Type in the program as listed, then RUN 1000:* As soon as 
the program stops in Line 1050, then delete Lines 12-5, 1900-1950. 
Run the program and enter "11" when asked for the ‘size of the puzzle. 
Now, enter "22" for the no. of Blocks (Black Squares) required 
then enter - A3,A7,B3,B7,D0,D1,D5,D9, DA, E6,F3,F7, оч, HO,H1,H5, 
H9,HA,J3.J7,K3,K7. 
You should notice that as you type in the add character 
for each entry, a black square appears at that position. After 
inputting the last item, the screen will begin scrolling. 


Notice the sign indicates "Across" This is the data that vou 
entered into AS; Line 10. As soon as Line 10 has become depleted, 
the sign will automatically change to "Down". This is the data 


that you entered into AS; Line 20. 


| % 


CODE ка 


To enter an answer requires (2) Key strokes. If you think 
the answer to (AO) "the missiles of October char." happens to be 
-JFK-, then press "A" followed by "®". 

The scrolling will stop. 

Enter "JFK". 

Each character will appear on screen as you type it in. Now, 

one of two things will occur. If the answer is correct as typed 
in, the screen will start scrolling, after a short delay. If the 
answer is not correct, the computer will automatically erase 

it from the screen. 

There isnt any final check to determine when all of the 
answers are right - the computer will judge each entry separately. 
TO stop the program, press "Break". ` 


1 REM (followed by 750 X's) 
2 LET ZS="C36441 + 116 (2его'ѕ Ø)". 
3 LET ZS=ZS+"266D279D280D2628373438380629343C3300 
CDBBO23EFDBCC9CS5DSES5CDD14938FB444DCDBD277EF5CDD149 
3OFBF1E1D1C1C9217CAOCDD849QFE2638F9BE39QF657329A40 
2BCDD84Q9FE1C38F9BE3QF6329940D61C5FQ121092A0C40239999 
7EBA29FB2323 t690019229540C911FFFF962519DO10FE?OO0900 
18F6221540CD1C1:1D28234E234678B1C9E5ED5B8549Q21C54909109100 
FEA628D621CB409012100ED439740010609EDBOE1C9" 
4 LET ZS-2S«"2A0C4011B602192287490114F001922854021BF49CD3641 
382328260BED438F402322894221C140CD3641381092813ED4391409 
23228B49021C340CD3641DA4BOD20953E0D329949ED439340 ` 
23228D49CD2A0A2A0C40232323220E403A2140FE253804FE13389A 
213COOCDD829222940C947C53E1CD73C19QFC327B493E76D7D7 
C1483E26C5F5D7AFD73E1BD7QD29FC3E76D7F13CC119ED327CA49QC9 
CDF149036899105090CD35O9FC9" 

5 LET ZS-ZS«"AF3222402A8940Q7E325BAQFEA6CC4441FEA9CCA441545D 
23ED4B8F49EDBOESED5B87 492 1 3C 4901 2ØØØEDBØE12B113C4Ø1A77 
213D4901 1FOSEDBS21649GCD2941CDD1 49DAGD4 2CD466F 

DOCDF 1492A8B49ED4B9 1 493A39 7 49CB6F 28087 2ABDAQEDAB9349 
OB78B1CAODA427EFE1902329FA56235EE52A9949QA7ED52E129E7 
119B403A7B490D61C470E090237EFE1129002237EFE19028905121390C19F5 
79A7CAODA42C5D52A954QED4B9749O07EFE8928O0BCDD84Q 
CDCE1439QF8127713097EA72808FE762804FE8902O0E8E1C1119B49 
1ABE290513230D29F721B89BCD294179A7CAOQD42 
2A9540ED4B974907EA7CAODA2FE76CAQDA2FE8OQCAODA2361B9Q9 18EC" 


“ 


О LET AS="KAQ) The missiles of October char. (A4)The xxx patrol (60's 


/4 


series (A8) Actress Smithers (BO) Pub staple (B4) Old Mcdonald 
refrain (B8) Lupino (CØ) Diane prince (D2) Fall mo. (D6) Title 
for Hitchcock (ЕО) Meadows and Mansfield (E7) Lynda's costar 

(FO) Hockey great (F4) Consolation prize (F8) In the xxx (ready 
to air) (GO) Kind of collar (G5) Actor Christopher (H2) xxx Smart 
(H6) Actor Vallone (I2) Hit since 1977 (JQ) Dialog-writers asset 
(J4) The elephant xxx (J8) NBC s company (KO) Pluto (K4) Adam xxx 
of rock (K8) Iniquitys home " 


‘pg. 3 
CODE we 

20 LET AS-AS«'XAG) Maxilla (A1) Ziegfeld (A2) Singer-actor 
(A4) Actor Christopher et al. (A5) xxx Supply of pop music 
(A6) Pulls (A8) Garner role (A9) Nabokov book (AA) Actress 
Martin (C3) Actor Murray (C7) Clampetts source of wealth 
(EO) xxx Kidd (1972 film) (E1) Fleming of game-show fame 
(ES) Plant (E9) Glashegian negative (EA) Newhart setting 
(F6) The xxx trap (1961) (G3) xxx Blu Dipinto Blu (G7) 
Frankensteinian milieu (H4) TV series, 1973-74 (IO) WJN 
Anchor (I1) Bali xxx (I5) Actor Johnson (I9) Persona for 
Snoopy (IA) Seaside acquisition " 

30 LET BSz"(AQ)JFK(A4) RAT(A8) JAN( BO) ALE(B4) EIO(B8) IDA(CO) 
WONDERWOMAN (D2) NOV(D6)SIR( E@) JAYNES (E7) LONI (F@)ORR(F4) 
SOP(F8)CAN(GO) ETON (GS) ИА КЕМ (H2 (GET (H6 ) RAF (18) THELOVEBOAT 
(J@)EAR(J4)MAN(J8)RCA(K®)DIS(K4)ANT(K8)DEN(" 

49 LET CS=""(A@) JAW(A1) FLO(A2) KENNYROGERS (A4) REEVES (A5) AIR(A6) 

TOWS (А8 ) JIMROCKFORD(A9) ADA(AA)NAN(C3 ) DON(C7)OIL( EG) JOE 
(E1)ART(ES)SOW(E9)NAE( EA) INN(F6) PARENT(G3) NEL(G7)LAB 
(H4) TOMAC(I2)TED(I1)HAI(IS)VAN(I9)ACE(IA)TAN(" 

50 LET BLOCK=16893 

60 PRINT AT 21,9;"ENTER SIZE OF PUZZLE..." 

70 INPUT A 

80 POKE 16417,A š 

9@ RAND USR 16514 Ps: 

PRINT AT.21,0;"ENTER NO. OF BLOCKS RECQ..." "e 
INPUT A ; ` 
FOR B=1 TO À 
RAND USR . BLOCK 
NEXT B 

RAND USR 16905 
STOP 


LET A=16514 
POKE A,16*CODE ZS+CODE Z$(2)-476 
LET A=A+1 

LET 25=25(3 TO) 

IF Z$«»"" THEN GOTO 12109 

STOP 
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JOS E. JENKINS 
31C0 Meckingbird 
AMARILLO, TEXAS 79109 
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750 North Yaleton Avenue 
West Covina, CA 91790 
January 20, 1988 
LISTing 
c/o Harvey Rait 
5 Peri Lane 
Valley Stream, NY 11581 


Dear Harvey, 


After extracting my renewal check and fixing up my subscription, 
you can pass the rest of this on to Joe Newman, editor of 
LISTing. Enclosed is my check for $15. My sticker says Jan-88...I 
hope that is expiration date and not last renewal. I don't think 
I sent in a check a few weeks before? 


I can't help it but I have to respond to Cedric Bastianns comment 
on the Frank Toemay plea for the QL USA version published in a 
number of newsletters. First, I understand where Cedric is coming 
from, having read his meticulous and fine hardware modification 
article....he is a perfectionist. So it is likely he would react 
with horror to the various warts on the different Sinclair 
models, and those that crept into the Timexes. (Timex missed the 
power supply instability noted by Fred Nachbaur's fix...the same 
capacitor fix to the 7805 regulator mentioned in Digiovanni's 
article on the QL in December '87 LISTing!) This should be done 
on all ZX-81s, TS-1000s, TS-2068s and QL's according to Fred. 


First Frank is an enthusiast and his real bou а sad. get 
them while they are available..or be sorry! In the December issue 
of "Sinclair QL World", an English slick cover magazine for the 
OL, they had an article "QL Goes Stateside" which discusses 
Frank's enterprise, Tom Bent, an American QUANTA librarian of 
programs (Quanta is the English QL user group). In that article, 
they sort of poke a pin in Frank's bubble by saying they weren't 
sure he was talking about the same machine they knew! 


Now I own an IBM clone, the QL expanded to the limit, and all the 
Sinclair Timex machines except a Z80. I have news for Cedric, the 
IBM, its clones, and operating system and all other computers are 
bug ridden and flawed too. The original IBM was a disaster and 
quickly upgraded, but all overpriced. What Sinclair did was 
introduce thousands to an imaginative computer at an affordable 
price. I have friends with super systems, that still revere their 
ZX-81 for its single key stroke basic words, ability to save 
variable, long string handling and slicing, and other things an 
IBM can't do. 


The only thing the IBM clone has going for it, is the thousands 
of suckers that have bought those systems and made the mass 
produced hardware cheap at the OEM level. I have a Franklin 8000 
clone (which I could hardly pass up new at half price on a close 
out 'last one' sale). For this I was able to add 128K memory 
module to bring it up to 640K for $69 list price. And from a 
Taiwanese clone seller down the street, I bought a Fuji Electric 
34 inch 30 megabyte hard drive for $238, with another $65 for a 
Western Digital RLL controller board. Now this is state of the 
art stuff that is so new you can hardly find out about it. (e.g. 
an XT clone can't go beyond 20 meg, but the RLL system fools it). 
For any other computer a hard drive of 10 or 20 megabytes is at 


least $800. The interface or board is often $200 or more. Also 
you cannot buy a QL, Commodore, Atari, Coco 2 or 3 or anything 
else and expand it with a disk drive and not exceed the price of 
an IBM XT clone. What you get and what you can do of course is 
another matter. The Coco series of color computers use a 6809 
chip that is an 8 bit relative of the 68000. (The first Amig 
assembler was written on a CoCo because the programmer couldaget 
a production or prototype Amiga). The CoCo 3 is a good graphics 
computer and the whole line is famed for no interface Weather Fax 
radio reception with a satellite receiver and hf receiver because 
the joystick port is a unique analog to digital converter that 
with the right software will do the whole job. (See Buck Rogers 
series in CTM = Computer Trader Magazine). 


The QL's operating system is probably the best available to an 
ordinary human being at an affordable price. What other computer 
can pause in a program, go format a new disk and return to the 
program in progress without losing a variable? An IBM MS-DOS 
system will trash yourprogram if you even tried to leave basic 
without saving it. I am not alone in my opinion. Enclosed is a 
quote from QUANTA that I once sent to the French language TSUG 
newsletter editor in Montreal. Incidentally, Real Gagnon is a 
computer technician working with IBM and other computers for a 
computer dealer. He has an un-used IBM clone at home under his 
desk, because he loves his QL so much more. 
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My advice for Cedric and other doubters who worry about the 
hardware, is to try Bob Hartung's advice and put in Beta Basic in 
a Spectrum emulated TS-2068. If you like procedures and the other 
Pascal like features of Modula-2 and other newer languages, then 
upgrade to a QL if you need the memory advantages and agility of 
ODOS. If you like clone hardware, but like the idea of a 68000 
System, look into the construction project currently running in 
the "Radio and Electronics" Computer Digest section in that 
magazine. It is a kit motherboard for a 68000 chip that uses 
clone cases, power supply, drives, keyboard, etc. It may have the 
ability to take the QDOS ROM, which is a project I would like to 
See. It has an operating system by the author that is not as 
advanced as QDOS. It may be a re-tread of the German MC Magazine 
68000 computer project that briefly appeared in R&E a year or 
more ago. Don't forget, one QL American with its software, is 
cheaper that one MS-DOS program, on average. 
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Oh yes, by the way, the Oliger Disk system has from the very 
beginning been Spectrum and 2068 compatible in a very transparent 
way. None of the other disk systems were until Larken came along 
with his 3rd version. The Oliger system also has a module to run 
the SP-DOS that Ramex bought in from England which was not fully 
fixed for the 2068 use by Ramex. 
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Other than storage and long documents on my hard drive, my main 
use of the IBM clone is to review Ham and Astronomy software for 
possible translation to Sinclair format for QZX (ham radio) and 
CAN (astronomy) newsletters. Was I shocked to find that the 8 
colors of the CGA board were four colors in two brightness 
levels. If you up-grade to EGA to half-way approach QL 
resolution, then half the software doesn't work as it was made 
for CGA mode. And this software won't work if you have a business 
machine with a Hercules hi-res monochrome board. Phooey on this 
kind of progress. Enclosed is a Gilbert and Sullivan parody too! 


Ham & Gud], —7 7» Усети 
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uperFest? 


‘It would be the BIGGEST yet! ==" 


That is what is being said if there шеге to be a АА Computer Fest 
right here in the New York area. Here is what has been proposed: 
Sharp's, Inc. and Zebra Systems, Inc. will be provide all the necessary 
up front money to get an NY area fest going; ie. money a hotel 
sould require, advertising money, etc. At the present time, September 
г October are likely months, with cooperation for fest planning and 
operation going to the CATS group, the Boston group and ofcourse 
IST. The key word is COOPERATION... YOUR. HELP IS GREATLY NEEDED 
to get this going! PLEASE volunteer to form, join, and run the 
necessary commitees. WE CAN HAVE A SUCCESSFUL FEST! The NY 
is known and convenient to people from Pennsylvania, D.C. - Virginia area 
Mass., Conn, and of course NY and NJ. And 3 major airports, train 
and bus terminals and more make it very accessible! A possible choice 
for a site would bevery close to Newark Airport. This would make 
it convenient to all the travelers. These and other important 
considerations MUST be thought out soon, so COME to the LIST 
meetings, or at the very least WRITE IN YOUR SUGGESTIONS NOW!! 

Е ше need to make a NY area Soir is YOUR HELP! 
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